home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 12 C64 Telecom / SXP682.ARC / L-маск (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  7.8 KB  |  224 lines
  1. 0 POKE53280,.:POKE53281,.:PRINT"[147][151]    ";:SYS49230:GOTO100:REM MASK V940116
  2. 1 GOSUB2:GOTO4
  3. 2 GOTO1610
  4. 3 GOTO1000
  5. 4 GOTO1740
  6. 5 GOSUB2:GOTO3
  7. 6 I$=" "+I$:SYS49182,I$:I$=MID$(I$,2):RETURN
  8. 7 A$=A$+" > ":GOTO1
  9. 8 A$=" "+R$+"":GOTO2
  10. 9 A$=R$+A$:GOTO2
  11. 10 K9$=MID$("[202]AN[198]EB[205]AR[193]PR[205]AY[202]UN[202]UL[193]UG[211]EP[207]CT[206]OV[196]EC",(VAL(MID$(K$,3,2))-1)*3+1,3)
  12. 11 K$=LEFT$(K$,2)+"-"+K9$+"-"+RIGHT$(K$,2):RETURN
  13. 13 CLOSE4:CLOSE3:CLOSE2:CLOSE1:RETURN
  14. 14 SYS49179,A$:RETURN
  15. 19 CLOSE2:OPEN2,8,2,"0:USER LOG,S,A":RETURN
  16. 20 A$="<[205]ORE?>":GOSUB2:GOSUB25:A$="":FORX=1TO7:A$=A$+CHR$(20):NEXT:A$=A$+""
  17. 21 FC=.:GOTO2
  18. 25 GOSUB40:I$="N":POKE703,.:SYS49221,I$:D=-1:IFPEEK(703)>.THENI$="":Z=1:RETURN
  19. 26 GOSUB6
  20. 27 IFI$=R$ORI$="[217]"THENA$="[217]ES":D=1:GOTO2
  21. 28 IFI$="[206]"THENA$="[206]O":D=.:GOTO2
  22. 29 GOTO25
  23. 37 PRINT#1,M$CHR$(G)CHR$(H)Y$:INPUT#1,M1,M1$,M1,M1:RETURN
  24. 40 T2=TI+WT:IFT2>T-1THENT2=T2-T
  25. 41 T2=T2-INT(T2/60^3)*60^3:M5=INT(T2/60^2):M5$=MID$(STR$(M5),2)
  26. 42 M5=.:IFLEN(M5$)>1THENM5=16*VAL(LEFT$(M5$,1))
  27. 43 MM=VAL(RIGHT$(M5$,1)):M5=M5+MM:POKE702,M5:RETURN
  28. 50 H=INT(X/C):G=INT(X-C*H):RETURN
  29. 74 GOSUB13:OPEN1,8,15,"I0:":OPEN3,8,3,FR$:RETURN
  30. 78 A$=MID$(STR$(A),2):IFLEN(A$)=1THENA$="0"+A$
  31. 79 RETURN
  32. 80 SYS49224:B$="":FORX=1094TO1101:B$=B$+CHR$(PEEK(X)):NEXT:SYS49230:RETURN
  33. 100 IFPEEK(1064)=32THEN100
  34. 101 OPEN5,2,.,CHR$(6):C=256:MP=PEEK(742)+PEEK(743)*C:CP=PEEK(719):B=255
  35. 106 I$="":FORX=1070TO1073:A$=CHR$(PEEK(X)):I$=I$+A$:NEXT:M=4096
  36. 107 IFLEFT$(I$,1)=" "THENI$=MID$(I$,2)
  37. 108 GOSUB5900
  38. 120 R$=CHR$(13):J$="[211][217][211][207][208]":V$=R$+"[201]NVALID ":W$="[193]BORTED":C$=CHR$(160):POKE1023,B
  39. 160 Y$=CHR$(.):M$="P"+CHR$(99):WT=10800:FR$="0:[211]YSTEM [213]SERS":Q$=CHR$(34)
  40. 170 CLOSE9:OPEN9,8,2,"0:CUSTOM":INPUT#9,PS$:INPUT#9,A$
  41. 180 LF=VAL(A$):INPUT#9,DR$:DR=VAL(DR$):IFDR=-1THEN195
  42. 185 DIMDR$(4,DR)
  43. 190 FORX=.TODR:FORY=1TO3:INPUT#9,DR$(Y,X):NEXTY,X:FORX=.TODR:DR$(2,X)=DR$(2,X)+":":NEXT
  44. 195 INPUT#9,MG$:MG=VAL(MG$):DIMMG$(3,MG):FORX=.TOMG:FORY=.TO3:INPUT#9,MG$(Y,X):NEXTY,X
  45. 197 FORX=.TOMG:MG$(1,X)=MG$(1,X)+":":NEXT
  46. 200 INPUT#9,NC$:NC=VAL(NC$):FORX=.TONC:INPUT#9,C$(X):NEXT:MD=VAL(MG$(2,.))
  47. 205 P$=MG$(1,.):INPUT#9,A$:BD=VAL(A$):INPUT#9,BD$,UM$,PG$,A$,LD$
  48. 206 UM=VAL(UM$):LD=VAL(A$):PG=VAL(PG$):INPUT#9,SU$,NB$,A$,CG$:EZ=VAL(A$)
  49. 207 INPUT#9,PD$,P1$,P2$:P1=VAL(P1$):DIMTB$(VAL(NB$)+7),P1$(P1)
  50. 208 FORX=.TOP1:INPUT#9,P1$(X):NEXT:X=8
  51. 209 INPUT#9,TB$(X):X=X+1:IFST=.THEN209
  52. 220 CLOSE9:OPEN9,8,9,"0:STATS
  53. 225 [129]X[178].[164]MG:[132]9,SY$(X),R4$(X),AL$(X),RF$(X):[130]:[132]9,US$,OL$
  54. 240 [132]9,YV$,FB$,BF$:MB[178][197](MG$(3,.)):YV[178][197](YV$):[139]DR[178][171]1[167]260
  55. 250 [129]X[178].[164]DR:[132]9,DR$(4,X):[130]
  56. 260 [160]9:R[178]192:U[178]8
  57. 265 [139]TB$(LD)[178]"0"[167][151]53265,[194](53265)[176]16:[160]1:[159]1,LD,15,"UI+":[160]1
  58. 266 [141]8
  59. 270 P$[178]P$[170]":":BD$[178]BD$[170]":":LD$[178]LD$[170]":":NB[178][197](NB$):NB$[178]"":DD$[178]"0:
  60. 280 POKE650,128:T=5184E3:A$="                                        "
  61. 290 FORX=1TO6:X$=X$+A$:NEXT:X$=X$+"               ":FORX=1TO16:SS$=SS$+C$:NEXT
  62. 300 US=VAL(US$):OL=VAL(OL$):WD=PEEK(687)
  63. 320 E$="":FORX=.TO1:A=(PEEK(710+X)):GOSUB78:E$=E$+A$:NEXT
  64. 350 DY$=MID$(STR$(PEEK(999)),2):IFLEN(DY$)=1THENDY$="0"+DY$
  65. 360 Z$=MID$(STR$(PEEK(1000)),2):IFLEN(Z$)=1THENZ$="0"+Z$
  66. 370 Y2=PEEK(1001):Y3=PEEK(1002):YR=Y3*C+Y2:YR$=MID$(STR$(YR),2)
  67. 380 D$=DY$+Z$+RIGHT$(YR$,2)
  68. 390 F1=1:GOSUB2160:F1=.
  69. 393 SYS49224:B$="":FORX=1094TO1101:B$=B$+CHR$(PEEK(X)):NEXT:SYS49230
  70. 395 E=VAL(LEFT$(B$,2))*60^3+VAL(MID$(B$,4,2))*60^2
  71. 400 E=E+(VAL(RIGHT$(B$,2))+1)*60:E=TI-E
  72. 405 N$="":FORX=971TO995:A$=CHR$(PEEK(X)):IFA$=CHR$(.)THEN407
  73. 406 N$=N$+A$:NEXT
  74. 407 FORX=1TO25:IFRIGHT$(N$,X)=RIGHT$(X$,X)THENNEXT
  75. 408 N$=LEFT$(N$,26-X)
  76. 409 IFN$<>J$THENGOSUB6100:GOTO1000
  77. 410 GOTO3675
  78. 1000 A$=N$:GOSUB14:WT=10800:GOSUB2160:IFZTHEN2480
  79. 1010 GOTO10000
  80. 1610 GET#5,K9$:C9=.:H$="":IFA$=""THENA$=" "+R$+"
  81. 1615 [158]49203,A$:[158]49239
  82. 1620 [139][201](A$,1)[179][177]""[175]SK[178].[167]2840
  83. 1630 [142]
  84. 1740 [151]694,.:F1[178]1:[141]2160:F1[178].:[139]J9[178]1[175]J[178].[167]I$[178]C$:A$[178]C$:[137]2
  85. 1800 [141]40
  86. 1810 [151]703,.:[139]O[178].[167]O[178]38
  87. 1820 A$[178][200](X$,O):[158]49215,A$
  88. 1840 [139][194](703)[177].[167]Z[178]1:I$[178]C$:[142]
  89. 1850 I$[178]A$:I$[178][200](I$,[194](694)):[139][194](694)[178].[167]I$[178]C$
  90. 1870 O[178].:[142]
  91. 2160 TC[178]56328:X9[178][194](TC[170]3):A%[178](X9[175]16)[173]16[170]48:B%[178](X9[175]15)[170]48
  92. 2170 [139]X9[178][177]128[175][197]([199](A%)[170][199](B%))[179]12[167]A%[178]A%[170]1:B%[178]B%[170]2
  93. 2180 [139]B%[177]57[167]A%[178]A%[170]1:B%[178]B%[171]10
  94. 2190 [139]X9[179]128[175]A%[178]49[175]B%[178]50[167]A%[178]48:B%[178]48
  95. 2200 X9[178][194](TC[170]2):C%[178](X9[175]240)[173]16[170]48:D%[178](X9[175]15)[170]48
  96. 2210 X9[178][194](TC[170]1):E%[178](X9[175]240)[173]16[170]48:F%[178](X9[175]15)[170]48
  97. 2220 X9[178][194](TC):TI$[178][199](A%)[170][199](B%)[170][199](C%)[170][199](D%)[170][199](E%)[170][199](F%)
  98. 2225 [139]TI[171]3[177]4E6[167]E[178]E[170]T
  99. 2230 [139]F1[178]1[167][142]
  100. 2240 [139]TI[179]E[167]E[178]E[171]T
  101. 2250 L2[178]TI[171]E:[139]L2[177]T[167]E[178]E[170]T
  102. 2252 [139]([194](MP)[175]16)[179][177]CP[175][194](706)[178].[167]Z[178]1:[142]
  103. 2253 L7[178][181](L2[173]60[174]3):L8[178][181]((L2[171]L7[172]60[174]3)[173]60[174]2):L9[178][181]((L2[171]L7[172]60[174]3[171]L8[172]60[174]2)[173]60)
  104. 2254 L4[178]L7[172]60[170]L8:[139]L4[177][178]EZ[175]SC[178].[167]Z[178]1:[142]
  105. 2255 [139]L4[177][178]EZ[171]10[175]SC[178].[167][141]2750:A$[178]"LENONNECT (null)IME > "[170]T9$:[141]9
  106. 2260 [139][197](TI$)[179]10000[175][194](1018)[179][177]1[167]2290
  107. 2270 [139]TI$[177]"010000"[167][151]1018,.
  108. 2280 [142]
  109. 2290 [151]1018,1:[139]DY$[178]"28"[175]Z$[178]"02"[167]2420
  110. 2300 [139]DY$[178]"29"[175]Z$[178]"02"[167]DY$[178]"01":Z$[178]"03":[137]2440
  111. 2310 [139]DY$[178]"31"[175](Z$[178]"01"[176]Z$[178]"10"[176]Z$[178]"03"[176]Z$[178]"05"[176]Z$[178]"07")[167]2360
  112. 2320 [139]DY$[178]"31"[175](Z$[178]"08"[176]Z$[178]"12")[167]2360
  113. 2330 [139]DY$[178]"30"[175](Z$[178]"09"[176]Z$[178]"11"[176]Z$[178]"04"[176]Z$[178]"06")[167]2360
  114. 2340 DY$[178][202]([196]([197](DY$)[170]1),2):[139][195](DY$)[178]1[167]DY$[178]"0"[170]DY$
  115. 2350 [137]2440
  116. 2360 TJ[178][197](Z$)[170]1:[139]TJ[179]10[167]LT[178]1:[137]2380
  117. 2370 LT[178]2
  118. 2380 DY$[178]"01":Z$[178][201]([196](TJ),LT)
  119. 2390 [139]LT[178]1[167]Z$[178]"0"[170]Z$
  120. 2400 [139]Z$[178]"13"[167]YR$[178][201]([196]([197](YR$)[170]1),4):Z$[178]"01"
  121. 2410 [137]2440
  122. 2420 YR[178][197](YR$):Y2[178]YR[173]4:YR[178][181](YR[173]4):[139]YR[178]Y2[167]DY$[178]"29":[137]2440
  123. 2430 DY$[178]"01":Z$[178]"03"
  124. 2440 [151]999,[197](DY$):[151]1000,[197](Z$):YR[178][197](YR$):Y3[178][181](YR[173]C)
  125. 2450 Y2[178]YR[171](Y3[172]C):[151]1001,Y2:[151]1002,Y3:D$[178]DY$[170]Z$[170][201](YR$,2)
  126. 2460 K$[178]D$:[141]10:[141]19:A$[178]" "[170]R$[170]"STR$ATE: "[170]K$[170]R$[170]" ":[152]2,A$:[160]2:[139]DR[178][171]1[167]13
  127. 2470 [159]2,8,2,"0:LU,S,A":[152]2,A$:[160]2:[159]2,8,2,"0:LD,S,A":[152]2,A$:[137]13
  128. 2480 [151]1023,253:[141]2510:[137]3675
  129. 2510 [129]X[178]8[164]NB[170]7:[160]1:[159]1,X,15:[160]1
  130. 2520 [139]ST[167]2540
  131. 2530 [159]1,X,15,"I0:":[160]1
  132. 2540 [130]:[142]
  133. 2750 [139]TI[179]E[167]E[178]E[171]T
  134. 2760 L2[178]TI:TH[178][181]((L2[171]E)[173]60[174]3):L2[178]L2[171]60[174]3[172]TH:TM[178][181]((L2[171]E)[173]60[174]2):L2[178]L2[171]60[174]2[172]TM
  135. 2770 TS[178][181]((L2[171]E)[173]60):[139]TH[179]10[167]TH$[178]"0"[170][201]([196](TH),1):[137]2790
  136. 2780 TH$[178][201]([196](TH),2)
  137. 2790 [139]TM[179]10[167]TM$[178]"0"[170][201]([196](TM),1):[137]2810
  138. 2800 TM$[178][201]([196](TM),2)
  139. 2810 [139]TS[179]10[167]TS$[178]"0"[170][201]([196](TS),1):[137]2830
  140. 2820 TS$[178][201]([196](TS),2)
  141. 2830 T9$[178]TH$[170]":"[170]TM$[170]":"[170]TS$:[142]
  142. 2840 SK[178].:K[178]TI:[139]K9$[177]""[167]A$[178]K9$:[137]2870
  143. 2850 [161]A$:[139]A$[177]""[167]2870
  144. 2860 [161]#5,A$:[139]A$[177]""[167]2870
  145. 2865 [139]([194](673)[175]1)[178].[167][142]
  146. 2867 [137]2850
  147. 2870 K[178]TI:Z[178].:A[178][198](A$):[139]A[177]127[167]A$[178][199](A[171]128)
  148. 2875 [139]A$[178][199](131)[167]A$[178]"
  149. 2880 IFA$=""ORA$=""THENH$=A$:C9=1:RETURN
  150. 2890 IFA$=CHR$(83)ORA$=CHR$(115)THENA$="<[195]>":SK=1:GOSUB2:GOTO2960
  151. 2900 GOTO2850
  152. 2960 GETA$:IFA$>""THEN2990
  153. 2970 IFTI-K>WTTHENA$=CHR$(65):Z=1:GOTO2990
  154. 2980 GET#5,A$:IFA$=""THEN2960
  155. 2990 A=ASC(A$):IFA>127THENA$=CHR$(A-128)
  156. 3000 IFA$=CHR$(65)ORA$=CHR$(97)THENGOSUB3055:C9=1:RETURN
  157. 3010 IFA$=CHR$(67)ORA$=CHR$(99)THEN3055
  158. 3020 GOTO2960
  159. 3055 A$=CHR$(20):A$=A$+A$+A$+"":GOSUB2:SK=.:RETURN
  160. 3330 GOSUB74:FL=.:X=INT(US/2):N4=US:N3=.
  161. 3335 IFPEEK(730)THENX=PEEK(730)
  162. 3360 H=INT(X/C):G=X-C*H:GOSUB37:A$=X$+"":SYS49227,A$:GOSUB37
  163. 3370 A$=LEFT$(A$,PEEK(2025)-1):N9$=LEFT$(A$,LEN(A$)-58)
  164. 3380 IFN$=N9$THENRETURN
  165. 3390 IFFL=.ANDN4-N3=1THENX=N4:FL=1:GOTO3360
  166. 3400 IFFL=1ANDN4-N3=1THENRETURN
  167. 3410 IFN$>N9$THENN3=X:X=X+INT((N4-X)/2):GOTO3360
  168. 3420 N4=X:X=X-INT((X-N3)/2):GOTO3360
  169. 3675 POKE54296,.:A$="[207]NE MOMENT...":GOSUB9
  170. 3677 IFTB$(LD)="0"THENPOKE53265,PEEK(53265)AND239:CLOSE1:OPEN1,LD,15,"UI-":CLOSE1
  171. 3680 PRINT"[147]NEW"R$"LOAD"Q$;LD$;"BBS6*";Q$;",";LD;":"R$"RUN
  172. 3690 [151]198,3:[151]631,13:[151]632,13:[151]633,13:[153]"":A$[178]N$:[141]14:[128]
  173. 5900 BR[178][197](I$):[151]659,6:X[178]1022730[173]BR:[141]50
  174. 5905 [139]BR[178]300[176]BR[177]1199[167][158]49242:[137]5910
  175. 5906 [158]49245
  176. 5910 [151]176,G:[151]177,H:[151]665,G
  177. 5920 [151]666,H:X[178]1022730[173]BR[173]2[171]100:[141]50:[151]661,G:[151]662,H
  178. 5930 [139][195](I$)[178]3[167]I$[178]"0"[170]I$
  179. 5940 [129]X[178]1[164]4:[151]X[170]964,[198]([202](I$,X,1)):[130]:[142]
  180. 6100 [141]3330:[141]13:ZL[178]G:ZH[178]H:ZR$[178]A$:BA$[178][201](A$,28):A$[178][200](A$,[195](A$)[171]28)
  181. 6105 XZ$[178][201](A$,30):FG[178][198]([202](XZ$,20,1)):XP[178](FG[175]31):FW[178][198]([202](XZ$,21,1))
  182. 6106 OC[178][198]([202](XZ$,22,1)):K3[178][198]([202](XZ$,23,1)):K4[178][198]([202](XZ$,24,1))
  183. 6107 GH$[178][200](XZ$,2):AC[178][198]([202](XZ$,25,1)):T0[178][198]([202](XZ$,26,1))
  184. 6108 CJ$[178][202](XZ$,27,1):CJ[178][198]([202](XZ$,28,1))
  185. 6110 [151]701,((FG[175]32)[178].)[170]1:U1$[178][202](XZ$,13,7):RH[178][198]([200](U1$,1))[171]R
  186. 6120 RL[178][198]([202](U1$,2,1))[171]R:RN[178]RH[172]64[170]RL:RV[178][198]([202](U1$,5,1))[171]R
  187. 6130 RN[178]RN[170]RV[172]M:CS[178][198]([202](U1$,6,1)):MN$[178][202](U1$,4,1)
  188. 6140 MN[178][198]([202](U1$,4,1))[171]R:FG[178][198]([202](U1$,3,1)):SC[178]((FG[175]4)[178].)[170]1
  189. 6150 CN[178]((FG[175]2)[178].)[170]1:P[178]((FG[175]1)[178].)[170]1:WD[178][198]([202](U1$,7,1)):[151]687,WD
  190. 6160 N5[178]((FG[175]8)[178].)[170]1:K$[178][202](XZ$,7,6):[139][194](690)[178]7[167]PA[178]1:[151]54296,15
  191. 6180 U1[178]((FG[175]16)[178].)[170]1:U2[178]((FG[175]32)[178].)[170]1
  192. 6190 U3[178]((FG[175]64)[178].)[170]1:U4[178]((FG[175]128)[178].)[170]1
  193. 6200 I$[178][200](XZ$,6):[141]6:CW$[178]I$:XZ$[178]CW$[170]D$[170]U1$
  194. 6210 G2[178]G:H2[178]H:[142]
  195. 10000 A$[178]"(null)ELECTED LENATEGORIES: "[170][200]("0123456",NC[170]1):[141]9:A$[178][200](X$,21)
  196. 10010 [129]I[178]1[164]NC[170]1:A$[178]A$[170][202]("-RIGHT$",[171]1[172]((CS[175]2[174]I)[178]2[174]I)[170]1,1):[130]:[141]2
  197. 10020 A$[178]"(null)ELECT ((null)/(null)):"[170]R$:[141]9:QB[178]CS:CS[178].:[129]X[178].[164]NC
  198. 10030 [139](OC[175]2[174](X[170]1))[178].[167]10060
  199. 10040 A$[178][196](X)[170]":"[170]C$(X):A$[178]A$[170][200](X$,21[171][195](A$))[170]"? ":[141]2:[141]25
  200. 10045 [139]Z[167]CS[178]QB:[137]2480
  201. 10050 [139]D[167]CS[178]CS[170]2[174](X[170]1)
  202. 10060 [130]:[139]NC[178]6[167]10100
  203. 10070 [129]X[178]NC[170]1[164]6:CS[178]CS[170]2[174](X[170]1):[130]
  204. 10100 A$[178]"(null)ELECTED PEEKASES: "[170][200]("01234567",MG[170]1):[141]9:A$[178][200](X$,16)[170]"RIGHT$
  205. 10105 IFMG=.THEN10180
  206. 10110 FORI=1TOMG:A$=A$+MID$("-[201]",-1*((T0AND2^I)=2^I)+1,1):NEXT:GOSUB2
  207. 10120 A$="[211]ELECT ([217]/[206]):"+R$:GOSUB9:QB=T0:T0=.:FORX=1TOMG
  208. 10130 IF(ACAND2^X)=.THEN10160
  209. 10135 A$=MG$(.,X):IFLEFT$(A$,1)="-"ORLEFT$(A$,1)="+"THENMG$(.,X)=MID$(A$,2)
  210. 10140 A$=STR$(X)+":"+MG$(.,X):A$=A$+LEFT$(X$,25-LEN(A$))+"? ":GOSUB2:GOSUB25
  211. 10145 IFZTHENT0=QB:GOTO2480
  212. 10150 IFDTHENT0=T0+2^X
  213. 10160 NEXT:IFMG=7THEN10180
  214. 10170 FORX=MG+1TO7:T0=T0+2^X:NEXT
  215. 10180 A$="[207]KAY? ":GOSUB9:GOSUB25:IFD=.ANDZ=.THEN10000
  216. 19141 RV=INT(RN/M):RH=RN-RV*M:RH=INT(RH/64):RL=RN-RV*M-RH*64
  217. 19142 RV=RV+R:RH=RH+R:RL=RL+R:ZT=P+CN*2+SC*4+N5*8+U1*16+U2*32+U3*64+U4*128
  218. 19143 GOSUB74:ZR$=N$+LEFT$(XZ$,6)+D$+CHR$(RH)+CHR$(RL)+CHR$(ZT)+MN$+CHR$(RV)
  219. 19144 IFCS>BTHENCS=B
  220. 19145 ZR$=ZR$+CHR$(CS)+CHR$(WD)+CHR$(XP+32*PEEK(701))+CHR$(FW)+CHR$(OC)+CHR$(K3)+CHR$(K4)
  221. 19146 ZR$=ZR$+CHR$(AC)+CHR$(T0)+CJ$+CHR$(CJ)+GH$+BA$:PRINT#1,M$CHR$(G2)CHR$(H2)Y$
  222. 19147 PRINT#3,ZR$:PRINT#1,M$CHR$(G2)CHR$(H2)Y$:GOSUB13
  223. 19150 SYS65484:POKE1023,B:GOTO3675
  224.